lisp/xml.el (xml-parse-tag-1): Use looking-at.

(This reverts change in revno:113793, which breaks the test suite).
https://lists.gnu.org/archive/html/emacs-devel/2013-08/msg00263.html

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca1c679fa11af20b7c8711bab1c1d22e33eab038..b537e243c7ecbabaab5aa106388cd61a0209737e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-08-12  Juanma Barranquero  <lekktu@gmail.com>
+
+       * xml.el (xml-parse-tag-1): Use looking-at (this reverts change in
+       revno:113793, which breaks the test suite).
+       https://lists.gnu.org/archive/html/emacs-devel/2013-08/msg00263.html
+
 2013-08-12  Eli Zaretskii  <eliz@gnu.org>
 
        * term/w32-win.el (dynamic-library-alist): Add DLLs for zlib.

diff --git a/lisp/xml.el b/lisp/xml.el
index e4d5f0b6b6d635d7cd8d6566a7cf23e99a416d5a..b62065eb48fa7a2674bf0b3ca5848b2459c11f79 100644 (file)
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -538,7 +538,7 @@ Return one of:
          (forward-char 1)
          ;; Now check that we have the right end-tag.
          (let ((end (concat "</" node-name "\\s-*>")))
-           (while (not (looking-at-p end))
+           (while (not (looking-at end))
              (cond
               ((eobp)
                (error "XML: (Not Well-Formed) End of document while reading element `%s'"